home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 2004 Junue - Disc 1 / MacFormat 143 CD1.iso / Serious Software / RealCADD3.05.sit / RealCADD3.05 / scripts / circlebycenter < prev    next >
Text File  |  2003-04-07  |  312b  |  35 lines
  1. RCAD script
  2. 1.00
  3. circlebycenter
  4. circlebycenterup
  5. circlebycenterdown
  6. 0
  7. 0
  8. 1
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. Dim s_dx, s_dy, s_rayon as double
  30.  
  31. s_dx = lastx - firstx
  32. s_dy = lasty - firsty
  33. s_rayon = sqrt(s_dx * s_dx + s_dy * s_dy)
  34. Add_Oval(firstx - s_rayon, firsty - s_rayon, firstx + s_rayon, firsty + s_rayon, 0.75,7,0,false)
  35.